The Canadian & World Encyclopedia 1998/The Canadian & World Encyclopedia 1998 - Disc 2.iso/mac/prime_CD/pb/PROFILE.DIR/00007_Script_#overview pause-play

Text File | 1997-07-29 | 547b | 24 lines

global over_paused
on mousedown
  puppetsprite the clickon, true
  if the movierate of sprite 3 = 0 then
    set the castnum of sprite the clickon = cast "over pause"
    set the movierate of sprite 3 = 1
    set over_paused = 0
  else
    set the castnum of sprite the clickon = cast "over play"
    set the movierate of sprite 3 = 0
    set over_paused = 1
  end if
  updatestage
end

on mouseup
end

on idle
  if over_paused = 1 then dontpassevent
  if the movierate of sprite 3 = 1 then set over_paused = 0

  pass
end